#!/usr/bin/perl -w
use strict;
use DataAccessLayerFactory;
use StockInfoSet;

my $dal_factory = DataAccessLayerFactory::new();
my ($dal,$msg) = $dal_factory->load_data_access_layer_from_yaml_file("configuration/data_access.conf");
my $stock_info_set = StockInfoSet::new();
$stock_info_set->processing_time(10);
$stock_info_set->from_channel('SSIHOSE');
my ($mesg,$t) = $dal->insert_stock_info_set($stock_info_set);
print $t;
